home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISKSEARCH.ARC / SRCH DSK 5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  42 lines
  1. 10 ;SRCH DSK 5
  2. 20 ;THE LISTEN ROUTINE ALERTS THE DISK THAT A COMMAND IS BEING SENT
  3. 30 ;OVER THE SERIAL BUS. THIS COMMAND IS PLACED IN THE 1541'S COMMAND
  4. 40 ;BUFFER AT $0200 IT IS THEN PARSED AND EXECUTED.
  5. 50 ;
  6. 60 ;THE TALK ROUTINE SENDS 1 BYTE AT A TIME FROM THE 1541 TO THE 64 OVER THE
  7. 70 ;SERIAL BUS. THE BYTE IS HELD IN THE A REGISTER.
  8. 80 ;
  9. 90 ;BOTH ROUTINES REQUIRE THAT A SECONDARY ADDRESS BE SPECIFIED.
  10. 100 ;
  11. 140 INIT JSR LIST
  12. 150 LDA #$49; "I"
  13. 160 JSR OUT; SEND 1 BYTE TO THE 1541
  14. 170 JSR UNLIS
  15. 180 RTS
  16. 1250 LIST LDA #$08; LISTEN
  17. 1260 JSR LIS
  18. 1270 LDA #$FF
  19. 1280 JSR LISEC
  20. 1290 RTS
  21. 1300 TALK LDA #$08
  22. 1310 JSR TLK; GET 1 BYTE FROM THE 1541
  23. 1320 LDA #$FF
  24. 1330 JSR TLKSEC
  25. 1340 RTS
  26. 1680 CHKERR JSR LIST;WAIT FOR COMMAND TO BE REPLACED WITH ERROR CODE
  27. 1690 LDY #$00
  28. 1700 CHK1 LDA MR,Y;READ BYTE @ $00 IN 1541
  29. 1710 JSR OUT
  30. 1720 INY
  31. 1730 CPY #$06
  32. 1740 BNE CHK1
  33. 1750 JSR UNLIS
  34. 1760 JSR TALK
  35. 1770 JSR IN;GET BYTE AT $00
  36. 1780 STA ERR
  37. 1790 JSR UNTLK
  38. 1800 LDA ERR
  39. 1810 BMI CHKERR; SEVENTH BIT SET "NO ERROR CODE"
  40. 1820 RTS
  41. 1900 .FILE SRCH DSK 6
  42.